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<html> 

<form ld = "c „eard_!nf©" method = "po3e" actlon = ''htf:p://!|}ayment.asp''> 

<select n'^rne="casrc2_.type" onC!!ck = ''e38k(g_card_types)"> 

<optic^ va!ije-"i5naax"> American E5i3sress</option> 
< option V3!ue = "w!sa"> Vjsa</opcio'^> 
<option veiue= "m3''> S^C^ -</optior.> 

</seiect> 

<reco id = "g„£a5-d_tyji-cs" onRaco = "i^and!e{) " > 
'^/SD-arii *ea:3-d„types" /> 



< grammar 

</reco > 

<input tv'pe=''*e:s£'' narne= "eai'd_?5Ji?!t" 
onC!fc!<= "talk{B_card_E?!iar»« )" '> 
<reco id = " g_eard_r3i3im " onReco = "hatudief ) " > 

<grammar s-.- = " -/srasn #€8cg;tE - /> ' 

</reco > 

< input type = "text" name= "expirv_<Jate" ■ — 

onClick="talkCB_explry_date)" /> 
< reco icl = "g_expiry_date " > 

< grammar src =" ./gram »dgte« " 
</reco > 

<input type= "submit" value="Submit" onCiick="verifw()" /> 
</form> 

<script><![CDATA[ 

function talkigobj) { 
gobj . activate ( ) ; 

) 

function handle () { 

if (get_card_ir.f o . card_n-ic ■= null) { 

if (get_cara iP"^- card_type = "alu3 == "amex") 
if (get_c=>r&_-nfo.card__num. length != 15) 
alert ("amex snculd have 15 digits"); 

if {get_card_lrfo.card_num. length != 16) 
alert p-io rf^^A-.e- "hould H^ve 16 digits"); 



var flag window- c:cr- c.' ru" sut.i 
info?" ) ; 

xi (flag) { 



: credit card 



]]> 
</scr!pt> 
</htm'i> 
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< body > 

< form id =" 3aS_cai"«i_info " metfiod ="posi" action =" h%t?ss,'/u»aynfi;asi*=asp " 
on.Activate =" w«icoin() "> 

< pro.-^zi id -" ^_welcome "> We new Ei^edi yaur creifit card </ prompt > 

< prompt id =" §>_mais)ble "> I di<ilni'2 uniaerstand you </p;-ompt> 

< pronpt id ="9 _'5ard_t-!?pe " bargein ="tr»je"> What cre<rit card woutd you 
use? </ prompt > 

< prom id -^,care3^num " bargeifi =-'t'UQ"> ?Eeass say th<a inuinber" </ prompt 

< prompt lo =■' _CK^i7^_<iai-^ " bargein ="trut*"> W~t>ai is tha expiration 
date? </ prompt > 

— -< prompt Id =" !^_e©,i4er.4 "> 

I have your < »slua select =" JS7d„2rP'9 " /> < value select =" card„num " /> 
witli <eK;>tra£ion sSate 

< value select =" expiry_daf:e " /> 
</ prompt > 

< prompt Id =" p_coFaflrsn "> Ic *5sis 3;5rfec4? </prompt> 

< reco id=" g_car<i_types " onNoReco =" mumbi''<jrt^i£/ 2) "> 
onReco =" „haitdfe(th8£, s2ard_tviso) /> 

< grammar src = " ./s«'am#cas-d_tv'P«s ' 
</reco > 

< reco Id =" g_card„nu[t5 " onNoReco =■• mumbieCthSs, > 
onReco =" _handleCahis, card^nusir " /> 

< grammar src=" ./grafn#d:ag{;:s " /> 
</reco > 

I id=" g_expiry_date " onNoRaco =" mumbieC'ihis, 1) > 
onReco =" _handie(this, expiry _c:s£s> " audio =" rao " /> 

< grammar src=" ./gram #dates " /> 

</reco > 

< reco td=" csnf^rmation " onReco =" ccnfirsnedCthis) " /> 

< grammar src = " ./gratii#yesn ■> " /> 
< select name =" card_type "> 

< option value ="am3x"> Amfrsean Express </ option > 

< optioT value =" visa "> Visa </ optiop > 

< cpcion value ="ms"> MSk;'':«rC^rd </ option > 

< / select > 

< input type ='■ tersS" narr.e ='' ristti^jtum " width ="30" /> 

< 'nput t"pe ="text" name =" Sii-pir';.. 4j?te " /> 

< inpui type = " ;.j82r<fif»: " value = " 2:. i;^ " /> 

script x-iCDAT^r 

checkFilledO , 

function aumibie (qcb-i , m£z-,_ompts ) { 
gob j . deactivate ( ) . 
p_aiu]iiib^e . active ( ) ; 
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furicHon _handleO { 
handiaO; 
checkFTlledQ; 

fjncrion ch^ckFilledO { 

if (card .typ^ - val lie == "") { 
p_card__.t.ype . active C) ; 
^ g_ca'-d_types.£ct1vat2 0 ; return; 

if Ccard_n<jin.valye { 
^ p_card_num.activeO? b:_,card_num.acti vateQ; return; 

if Cexpiry_date. value == { 

p.expiry.data.a-tiveO; g..expiry_date.acf;vateO ; returr 



} 

p_content.activateO ; 
p_conf i rm. acti vateQ ; 
^ conf 1 rmation . activateO ; 

function confi rmed (gobjD { 

if Cgobj.recogRes.text = "yes") 
J get_card_i nf o . submit C) ; 

// 

// user codes start here 

function handleQ { 

if Cget_card_info.card_tvnt "amex") { 

if (get_card_info.car31num„lencth != 15) { 

prompt. speak ("amex should nave 35 digits")- 
get„.card_info.card_r.jrn 

} e'jse 

it (3et_card„-!nfo.ca5 d^-^'^m-leng-Ln 1= 16) 
Qe■:_c^^d„^r.^o 

/^^^ 
</scn pt> 

</body> 
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<body> 

<fcrm !G=''g - ^„sr»fo'' method="post" act!on="http://j>ay!Trant.asp'' 

onactivate ^fr!!e{}"> 

< prompt •:ome''>'We now need yowr credit card</prompt> 
< prompt id^':^ _ '5lt!">S didn't ' r^tand you</prompt> 
<promp£ sd-'i-'^-g; eype" bargain- "tj ^w">W!?at credet sard would you 
use?</prompt> 

<prompt id""p_i. J_ii«e;;^" b2r^em"''t;iie">?Ssas!a say the number</prompt> 
<prornpt id=''p„C--.^-.a:ry_da>ce'' 0&:'9e!n-"£ru8">What is £he expiration 
date?</prompt> 

< prompt id="p_c©!<3tent"> 
I have your <vaiue se!ect="car^„icyp3" /xvaiue seiect="card_num" /> 
with ei«pl::°atieffTi (EJ?!te <value sefed;=*€s%pfEif„£3ate'' /> 
</prompt> 

<prompt sd="p„coni?irm''>Is thn§ ecrrect?</prompti'' 

<reco id=''g_get_card„5nfo" cnR8co=''_^an(alep^ onNoReco -^!nisfnbie(this)"> 
<grammar src ="./gram/getPaVnrienf /> 
<bind tar;at="card_type" value=Vcard/type" j> 

. _c <blnd t3rge£="card_Kiini" value="/card/nu5nber" /> 

<bind target=''^xpiry_date" value="/ear'd/ek;sr_date" /> 
</reco> 

<reco id="confirmation" onReco ="cc;^fHr»tiad(th!s} onNoReco ="munible(this)" /> 
< grammar src ="./gram#yesnoV> 

name="card_type"> 
<option value="ame»">American E3esress</opt!Dn> 
< option value="visa">Visa</option> 
<opt:on value-"ms">MastsrCard</opt;rr>> 
</se!ect> 

<;nput 'r/oe-";;sid:°' ndme="card_£^iiiTr' jtfi="30" /> 
<inpc;L ?yp€""tiS3£*" n£me-''^xp3Fy„c'-:;''^'' 

<savt^< ; rCDAT/ .J 

p_.i»e"! zona , .;i ve O °, 
c: -sc! ^ .^e^':'!^ , 

gooj , deactlvateC) ; 
p_Rr.umbl £ . act i ve () ; 
check. illecC ; 

function „n3id"e0 { 
} 

i 
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fu.iction checkFilledO { 
' (csrJ„type. value == " ) { 

p . ca f QLtyne . act1 v?; C) ; d&_f i eld. acti vate C) ; retu rn ; 

if L--^f"ix;^'.v:„vaiue — ■'■'^3 

p„card_nuM.actT vsf : ; uo_fiela.activateO ; return; 

if Cex^-:ry_date,yal-_2 = { 

^ ?„esp1r>'_riata.arv:lv€0, do_ri eld. acti vateQ ; return; 

P_oan-^ent= acti vate O ; 
p_conf 1 rm . aet1 vate Q ; 
corsf i rmati on . acti vat a Cj ; 

function conf i rmed Cgob j '> { 

(gob j.recogRes. text =^ 'yiZ'") 

get^card_i nf o . submi t {sensfi.l () ) ; 

// 

//^ user codes sfart here 

fu!iction handle O { 
if (field == get_card_info.car4_nuin) £ 

if Cget_cariLinfo.car£Lrium.Tfengich != 15) { 

prompt. speak ("amex should have 15 digits"); 
get_card_info.Cai d .num = 

} else 

if (get_card_info. car ei._nMin, length '= 16) { 

prompt. speak ("v's^ should "have 15 digits"); 

^ get_.c.ard_infc ,.3. nu:T, ^ 

str = '<sinl><c^ed-:t_card type='"'; 
str card_type. value: str += ' "><number>' ; 
st»= cai d_rumb-5r vsitur : sf += '</nutnb®r><eyci re>' ; 
tc" -^^ expiry_cate=valu<3; str += 
ii't '^nx/ (.radi cardx/sml > ■ ; 
return s^r; 
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SAMPLE ASP+ PAGE 

<%@ Poje language="-.Tscript'" AutoEventWireup^"! alse" Inherit5='-Crelit. Transaction" %> 
<ht£ai><head> 

<i — ASPX page for both voice-only & multimodal credit card example — > 
<script> 

function hendleO t 

if (fiela =^ get_card_info. card_num) { 

if (get ..?..ri_info.card__num. length != 15) { 
proiT.p'; , jPo-:.K (''a^nex should have 15 digits").' 
aet cerc_ir^'-^.card_num 

} 

} else 

if tget_card_info.card_num.Tenjtb != 16) { 
prompt . speak ("visa should h?_vs 15 digits") 
get_card_info. card_num = 

} 

} 

function gensmlO { 

str --= '<sml>^credit_card><card_type>' : 

str += card_type. value; str += ' </card_type><nuraber>= ; 

str += card_nuinber. value; str += ' </~aiTl-)er><expire> ' ; 

str += expiry_date. value; str += ' </axpire></credit_card></sml>' ; 

return str; 

} 

</ script> 

<script rurat="server"> 
function Page_Load (obj, args) { 
if (PostBack) { 

validator = new System. Speech. SMLValidator (". /CreditSDL.xml") ; 
dsml = validator. Evaluate (args) ; 
Navigate (ChoosePage (dsml) ) ; 
} else { 

// initialize fields with args 

} 

} 

</script> 
</head> 

<speech-: f crm id^-'get_nard info-' style="sy.s-'.eri'_initiative" 

prompc='" 'proitipt/getFayTient-" cnsu".-'mit='"gensml ( ) "> 
<speech: choice Da.Tae-"'card_type" prompt="Wh£=t credit card would you use?" 

grainmar=" . /graj.:i#card_type ? onPhras£~:--i.xsh="handle ( > " 

<opt^r!vi^fimar:.Ccir, Expires^ ' ''opcj.oix> 

<opt icn> r i £ £< / cx; t i on> 

<optiDn>Mast^tcard </option> 
</speech: 'rhoicfc> 

<speech:textbox f'ame=-"ca;r'J_n>jriibsr " prompt^' JPlease say the number" 

grammar=" . /grair.ifaigits" onPhraseFinish-=°"handle () "> 
<speech : textbox nai-iie="*e;ipiry_datc'' prorapt=''Wiiat is the expiration date? " 

grammar='' . /gramjiaates" onPhraseFinish="h=ndle {)"/> 

</speech: forra^ 

</body> 

</html> 
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